home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok59.lha / AmokEd_V1.02b / txt / Printf.lzh / Printf / TXT / PrintfTest.mod < prev    next >
Text File  |  1991-01-25  |  1KB  |  39 lines
  1. (*
  2.   :Program.       Printf
  3.   :Author.        Volker Rudolph
  4.   :Address.       Lettow-Vorbeck-Str. 11 / 6750 Kaiserslautern
  5.   :Phone.         06301/8566
  6.   :Version.       1.2
  7.   :Date.          7.3.1990
  8.   :Copyright.     PD
  9.   :Language.      Assembler / Oberon
  10.   :Translator.    A68k / Amiga-Oberon V1.17.1
  11.   :Contents.      Allzweck-Textausgabe in Form der C-Funktion Printf
  12.   :Usage.         Aufruf und Parameter wie in C
  13. *)
  14.  
  15. MODULE PrintfTest;
  16.  
  17. IMPORT p:Printf,io,st:Strings,(* NoGuru,*)s:SYSTEM;
  18.  
  19. VAR
  20.   string:ARRAY 80 OF CHAR;
  21.  
  22. BEGIN
  23.   (* Damit das Programm auch von der Workbench aus läuft *)
  24.   p.writeProc := io.WriteString;
  25.  
  26.   p.Printf0("\[0;33;40m RED \[0;31;40m WHITE\n");
  27.  
  28.   string := "Teststring";
  29.   p.Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  30.              s.ADR(string),st.Length(string));
  31.  
  32.   string := "Test";
  33.   p.Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  34.              s.ADR(string),st.Length(string));
  35.  
  36.   p.SPrintf2(string,"Dezimal %3ld = Hex %04lxH.\n",456H,456H);
  37.   p.writeProc(string);
  38. END PrintfTest.
  39.